Fixed called-interactively-p invocation.

diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 5a3dc4bb1fb74e11bc5e3b93059d4be8c84dbb36..78b541d8a0e76f0168b35a2cad4a4aae7daefe4b 100644 (file)
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -1023,7 +1023,7 @@ commands.)"
   "Send STRING to inferior Python process."
   (interactive "sPython command: ")
   (let ((process (or process (python-shell-get-or-create-process))))
-    (when (called-interactively-p)
+    (when (called-interactively-p 'interactive)
       (message (format "Sent: %s..." string)))
     (comint-send-string process string)
     (when (or (not (string-match "\n$" string))